home *** CD-ROM | disk | FTP | other *** search
/ MacWorld: Super Stacks! / Macworld CD.iso / HyperCard Archives / International / French v1.2.5.1 / Piles principales / Téléphone / card_3103.txt < prev    next >
Text File  |  1989-09-15  |  11KB  |  490 lines
  1. -- card: 3103 from stack: in
  2. -- bmap block id: 3601
  3. -- flags: 0000
  4. -- background id: 2152
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   put the time into bkgnd field "Heure"
  9.   pass openCard
  10. end openCard
  11.  
  12. on closeCard
  13.   hide card field "info"
  14. end closeCard
  15.  
  16. on mouseUp
  17.   if the visible of card field "pr√©fixes" is true then
  18.     beep
  19.     answer "Choisissez un pr√©fixe."
  20.   else
  21.     if the visible of card field "virgules" is true then
  22.       beep
  23.       answer "Choisissez le nombre de virgules souhait√©es."
  24.     end if
  25.   end if
  26. end mouseUp
  27.  
  28.  
  29.  
  30.  
  31. -- part 2 (button)
  32. -- low flags: 00
  33. -- high flags: A004
  34. -- rect: left=268 top=238 right=259 bottom=357
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 3
  39. -- text size: 10
  40. -- style flags: 0
  41. -- line height: 13
  42. -- part name: Codes régionaux
  43. ----- HyperTalk script -----
  44. on mouseUp
  45.   if the visible of card field "pr√©fixes" is true then
  46.     beep
  47.     answer "Choisissez un pr√©fixe."
  48.     exit mouseUp
  49.   else
  50.     if the visible of card field "virgules" is true then
  51.       beep
  52.       answer "Choisissez le nombre de virgules souhait√©es."
  53.       exit mouseUp
  54.     end if
  55.   end if
  56.   visual effect scroll left
  57.   go to "Codes r√©gionaux"
  58. end mouseUp
  59.  
  60.  
  61.  
  62. -- part 4 (button)
  63. -- low flags: 00
  64. -- high flags: 0000
  65. -- rect: left=59 top=40 right=200 bottom=228
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 3
  70. -- text size: 10
  71. -- style flags: 0
  72. -- line height: 13
  73. -- part name: Composer
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   if first char of the message box is in "0123456789ABCD#*("
  77.   then dial msg
  78. else
  79.   Ask "Num√©ro √† composer ?"
  80.   dial it
  81. end if
  82. end mouseUp
  83.  
  84.  
  85.  
  86. -- part 7 (button)
  87. -- low flags: 00
  88. -- high flags: 2000
  89. -- rect: left=441 top=237 right=262 bottom=468
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 11045 / 11045
  92. -- text alignment: 1
  93. -- font id: 3
  94. -- text size: 10
  95. -- style flags: 0
  96. -- line height: 13
  97. -- part name: Base
  98. ----- HyperTalk script -----
  99. on mouseUp
  100.   visual effect iris close
  101.   go base
  102. end mouseUp
  103.  
  104.  
  105.  
  106. -- part 13 (button)
  107. -- low flags: 00
  108. -- high flags: 0000
  109. -- rect: left=362 top=237 right=262 bottom=390
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 26635 / 26635
  112. -- text alignment: 1
  113. -- font id: 3
  114. -- text size: 10
  115. -- style flags: 0
  116. -- line height: 13
  117. -- part name: help
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   set visible of card field "info" to not the visible of card field "info"
  121. end mouseUp
  122.  
  123.  
  124.  
  125. -- part 40 (field)
  126. -- low flags: 01
  127. -- high flags: 0000
  128. -- rect: left=286 top=156 right=174 bottom=386
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 0 / 0
  131. -- text alignment: 0
  132. -- font id: 3
  133. -- text size: 10
  134. -- style flags: 0
  135. -- line height: 13
  136. -- part name: 
  137.  
  138.  
  139. -- part 41 (field)
  140. -- low flags: 01
  141. -- high flags: 0000
  142. -- rect: left=286 top=173 right=191 bottom=386
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 0
  146. -- font id: 3
  147. -- text size: 10
  148. -- style flags: 0
  149. -- line height: 13
  150. -- part name: 
  151.  
  152.  
  153. -- part 48 (field)
  154. -- low flags: 01
  155. -- high flags: 0000
  156. -- rect: left=286 top=190 right=208 bottom=386
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 0
  160. -- font id: 3
  161. -- text size: 10
  162. -- style flags: 0
  163. -- line height: 13
  164. -- part name: 
  165.  
  166.  
  167. -- part 50 (field)
  168. -- low flags: 01
  169. -- high flags: 0000
  170. -- rect: left=286 top=207 right=225 bottom=386
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 0 / 0
  173. -- text alignment: 0
  174. -- font id: 3
  175. -- text size: 10
  176. -- style flags: 0
  177. -- line height: 13
  178. -- part name: 
  179.  
  180.  
  181. -- part 68 (button)
  182. -- low flags: 00
  183. -- high flags: E006
  184. -- rect: left=288 top=111 right=130 bottom=336
  185. -- title width / last selected line: 0
  186. -- icon id / first selected line: 0 / 0
  187. -- text alignment: 1
  188. -- font id: 3
  189. -- text size: 10
  190. -- style flags: 0
  191. -- line height: 13
  192. -- part name: Oui
  193. ----- HyperTalk script -----
  194. on mouseUp
  195.   set hilite of button "Oui" to true
  196.   set hilite of button "Non" to false
  197. end mouseUp
  198.  
  199.  
  200.  
  201. -- part 67 (field)
  202. -- low flags: 01
  203. -- high flags: 0000
  204. -- rect: left=286 top=93 right=109 bottom=416
  205. -- title width / last selected line: 0
  206. -- icon id / first selected line: 0 / 0
  207. -- text alignment: 0
  208. -- font id: 3
  209. -- text size: 10
  210. -- style flags: 256
  211. -- line height: 13
  212. -- part name: 
  213.  
  214.  
  215. -- part 69 (button)
  216. -- low flags: 00
  217. -- high flags: A006
  218. -- rect: left=335 top=111 right=130 bottom=383
  219. -- title width / last selected line: 0
  220. -- icon id / first selected line: 0 / 0
  221. -- text alignment: 1
  222. -- font id: 3
  223. -- text size: 10
  224. -- style flags: 0
  225. -- line height: 13
  226. -- part name: Non
  227. ----- HyperTalk script -----
  228. on mouseUp
  229.   set hilite of button "Non" to true
  230.   set hilite of button "Oui" to false
  231. end mouseUp
  232.  
  233.  
  234.  
  235. -- part 70 (button)
  236. -- low flags: 00
  237. -- high flags: 0000
  238. -- rect: left=397 top=237 right=264 bottom=434
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 17481 / 17481
  241. -- text alignment: 1
  242. -- font id: 0
  243. -- text size: 12
  244. -- style flags: 0
  245. -- line height: 16
  246. -- part name: Fiche
  247. ----- HyperTalk script -----
  248. on mouseUp
  249.   get the selection
  250.   visual effect zoom open
  251.   go to "Adresses"
  252.   if it is not empty then find it
  253. end mouseUp
  254.  
  255.  
  256.  
  257. -- part 64 (button)
  258. -- low flags: 00
  259. -- high flags: 2005
  260. -- rect: left=271 top=155 right=172 bottom=378
  261. -- title width / last selected line: 0
  262. -- icon id / first selected line: 0 / 0
  263. -- text alignment: 1
  264. -- font id: 0
  265. -- text size: 12
  266. -- style flags: 0
  267. -- line height: 16
  268. -- part name: Extérieur
  269. ----- HyperTalk script -----
  270. on mouseUp
  271.   if the visible of card field "pr√©fixes" is true then
  272.     beep
  273.     set hilite of button "Ext√©rieur" to true
  274.     answer "Choisissez un pr√©fixe."
  275.     exit mouseUp
  276.   else
  277.     if the visible of card field "virgules" is true then
  278.       beep
  279.       set hilite of button "Ext√©rieur" to true
  280.       answer "Choisissez le nombre de virgules souhait√©es."
  281.       exit mouseUp
  282.     end if
  283.   end if
  284.   global ext√©rieurParD√©faut
  285.   if field Ext√©rieur is not empty
  286.   then put field Ext√©rieur into ext√©rieurParD√©faut
  287.   if ext√©rieurParD√©faut is empty
  288.   then put "0," into ext√©rieurParD√©faut
  289.   if the hilite of button "Ext√©rieur" is false then
  290.     put empty into field "Ext√©rieur"
  291.   else
  292.     show card field "pr√©fixes"
  293.     put "Cliquez sur un pr√©fixe..." into card field "message"
  294.     show card field "message"
  295.   end if
  296. end mouseUp
  297.  
  298.  
  299.  
  300. -- part 17 (field)
  301. -- low flags: 81
  302. -- high flags: 2007
  303. -- rect: left=239 top=33 right=275 bottom=478
  304. -- title width / last selected line: 0
  305. -- icon id / first selected line: 0 / 0
  306. -- text alignment: 0
  307. -- font id: 3
  308. -- text size: 9
  309. -- style flags: 0
  310. -- line height: 12
  311. -- part name: info
  312. ----- HyperTalk script -----
  313. on mouseUp
  314.   hide the target
  315.   set the scroll of card field "info" to 0
  316. end mouseUp
  317.  
  318.  
  319.  
  320. -- part 57 (field)
  321. -- low flags: 81
  322. -- high flags: 0002
  323. -- rect: left=246 top=154 right=233 bottom=467
  324. -- title width / last selected line: 0
  325. -- icon id / first selected line: 0 / 0
  326. -- text alignment: 0
  327. -- font id: 3
  328. -- text size: 10
  329. -- style flags: 0
  330. -- line height: 13
  331. -- part name: info 6
  332. ----- HyperTalk script -----
  333. on mouseUp
  334.   set visible of card field "info 6" to not the visible of card field "info 6"
  335. end mouseUp
  336.  
  337.  
  338.  
  339. -- part 72 (field)
  340. -- low flags: 81
  341. -- high flags: 0002
  342. -- rect: left=385 top=138 right=198 bottom=413
  343. -- title width / last selected line: 0
  344. -- icon id / first selected line: 0 / 0
  345. -- text alignment: 1
  346. -- font id: 3
  347. -- text size: 12
  348. -- style flags: 0
  349. -- line height: 16
  350. -- part name: virgules
  351. ----- HyperTalk script -----
  352. on mouseUp
  353.   get trunc((item 2 of the clickloc-item 2 of the rect of the target) /the textheight of the target) + 1
  354.   put line it of card field "virgules" after field "Ext√©rieur"
  355.   hide card field "message"
  356.   hide card field "virgules"
  357. end mouseUp
  358.  
  359.  
  360. -- part 76 (field)
  361. -- low flags: 81
  362. -- high flags: 0000
  363. -- rect: left=229 top=134 right=150 bottom=384
  364. -- title width / last selected line: 0
  365. -- icon id / first selected line: 0 / 0
  366. -- text alignment: 0
  367. -- font id: 3
  368. -- text size: 10
  369. -- style flags: 256
  370. -- line height: 13
  371. -- part name: message
  372.  
  373.  
  374. -- part 71 (field)
  375. -- low flags: 81
  376. -- high flags: 0002
  377. -- rect: left=385 top=120 right=252 bottom=409
  378. -- title width / last selected line: 0
  379. -- icon id / first selected line: 0 / 0
  380. -- text alignment: 1
  381. -- font id: 3
  382. -- text size: 10
  383. -- style flags: 0
  384. -- line height: 13
  385. -- part name: préfixes
  386. ----- HyperTalk script -----
  387. on mouseUp
  388.   get trunc((item 2 of the clickloc-item 2 of the rect of the target) /the textheight of the target)
  389.   hide card field "pr√©fixes"
  390.   put "Cliquez sur une virgule..." into card field "message"
  391.   put it into field "Ext√©rieur"
  392.   show card field "virgules"
  393. end mouseUp
  394.  
  395.  
  396. -- part contents for background part 20
  397. ----- text -----
  398. 10:56 AM
  399.  
  400. -- part contents for background part 3
  401. ----- text -----
  402. 16,
  403.  
  404. -- part contents for background part 27
  405. ----- text -----
  406. 19,
  407.  
  408. -- part contents for background part 40
  409. ----- text -----
  410. 16,1
  411.  
  412. -- part contents for card part 40
  413. ----- text -----
  414. Ligne ext√©rieure:
  415.  
  416. -- part contents for card part 41
  417. ----- text -----
  418. Province-Paris:
  419.  
  420. -- part contents for card part 48
  421. ----- text -----
  422. Paris-Province:
  423.  
  424. -- part contents for card part 50
  425. ----- text -----
  426. International:
  427.  
  428. -- part contents for card part 57
  429. ----- text -----
  430. Prefixes are the first 3 digits of a local telephone number.  You do not need an area code for local prefixes. Enter your local prefixes into the box above, separated by spaces.
  431.  
  432. -- part contents for card part 17
  433. ----- text -----
  434.  
  435.                         TELEPHONE
  436.  
  437. Vous pouvez utiliser la pile de t√©l√©phone pour composer tous vos num√©ros, quelle que soit votre environnement de travail sur HyperCard : agenda, carnet d'adresses, etc.
  438. Pour composer un num√©ro directement √† partir de cette pile, vous pouvez soit cliquer sur le t√©l√©phone et entrer votre num√©ro dans la zone de dialogue, soit entrer votre num√©ro dans l'Editeur de message puis cliquer sur le t√©l√©phone.
  439.  
  440. Si vous le souhaitez (cliquez sur le bouton Oui)le script de la pile t√©l√©phone analyse partiellement les num√©ros compos√©s en fonction de certains crit√®res : longueur du num√©ro,v√©rification du code du pays √©tranger, etc.
  441.  
  442. Si vous composez un num√©ro en dehors de votre circonscription (vers Paris, vers la province) il est n√©cessaire de faire pr√©c√©der ce num√©ro du "16", le script n'analysant pas le contenu du num√©ro √† 8 chiffres.
  443.  
  444. LIGNE EXTERIEURE
  445. Si votre poste doit pr√©alablement composer un num√©ro pour obtenir une ligne ext√©rieure, cliquez sur "Ligne ext√©rieure", et modifiez ce num√©ro le cas √©ch√©ant.
  446. La virgule (vous pouvez en ajouter plusieurs) provoque une pause dans l'ex√©cution du num√©ro, permettant d'attendre la tonalit√©.
  447.  
  448. PROVINCE-PARIS
  449. 16 + 1 + num√©ro 8 chiffres
  450. rajoutez dans ce champ autant de virgules que n√©cessaire selon le type de votre modem.
  451.  
  452. PARIS-PROVINCE
  453. 16 + num√©ro 8 chiffres
  454. rajoutez dans ce champ autant de virgules que n√©cessaire.
  455.  
  456. ETRANGER
  457. 19 + code du pays + code de la zone + num√©ro
  458. Rajoutez dans ce champ autant de virgules que n√©cessaire.
  459.  
  460.                 CLIQUEZ POUR CONTINUER
  461.  
  462.  
  463.  
  464. -- part contents for card part 67
  465. ----- text -----
  466. Analyser le num√©ro ?
  467.  
  468. -- part contents for card part 71
  469. ----- text -----
  470. 0
  471. 1
  472. 2
  473. 3
  474. 4
  475. 5
  476. 6
  477. 7
  478. 8
  479. 9
  480.  
  481.  
  482. -- part contents for card part 72
  483. ----- text -----
  484. ,
  485. ,,
  486. ,,,
  487.  
  488. -- part contents for card part 76
  489. ----- text -----
  490. Cliquez sur une virgule...